{*******************************************************************************
  Unit Hlp - Hilfe-Formular

18.08.07 - Unit erstellt

*******************************************************************************}

unit Hlp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;

type
  THlpFrm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    richEdt: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  HlpFrm: THlpFrm;

implementation

uses Hpt;

{$R *.dfm}

procedure THlpFrm.FormCreate(Sender: TObject);
var
  fn : string;
begin
  fn := HptFrm.dir+'help.rtf';
  if FileExists(fn) then
    richEdt.Lines.LoadFromFile(fn)
  else
    richEdt.Lines.Add('Datei nicht gefunden: "'+fn+'"');
end;

end.
